home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / tcp / cp5.lha / cp5 / bin / updateprogs.rexx < prev   
OS/2 REXX Batch file  |  1995-10-15  |  472b  |  19 lines
  1. /* rexx:
  2. ** $ver: Update Program Prefs Version 1.0
  3. */
  4.  
  5. address command "copy cp:prefs/programs cp:prefs/programs.old"
  6. address command "protect cp:prefs/programs.old -d"
  7. call open(in,"cp:prefs/programs.old","R")
  8. call open(out,"cp:prefs/programs","W")
  9. call seek(out,0,"B")
  10.  
  11. do until eof(in)
  12.   line = readln(in)
  13.   parse var line progtype "=" programpath
  14.   newline = compress(progtype) ||" = stack "||programpath
  15.   call writeln(out,newline)
  16. end
  17. call close(in)
  18. call close(out)
  19.